home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 103 / 103.d81 / cryptomind 03 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  215 lines
  1. 10 poke56,56:clr:poke53281,0:poke53280,0
  2. 15 poke788,52
  3. 20 print"[147]":gosub1990
  4. 30 dv=peek(186):ifdv<8thendv=8
  5. 40 sys57812"mindfont",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  6. 50 sys57812"inp/cm ce00",dv,0:poke780,0:poke781,0:poke782,206:sys65493
  7. 60 poke53281,0:poke53280,0:dimw$(300),w(13)
  8. 70 sys52736,"cryptdata 03",dv
  9. 80 h=peek(252)*256+peek(251)
  10. 90 goto390
  11. 100 poke214,y:print""
  12. 110 printtab(x)"[176]"left$(lt$,xx)"[174]"
  13. 120 fori=1toyy:printtab(x)"[165]"left$(sp$,xx)"[167][149]@":next
  14. 130 printtab(x)"[173]"left$(lb$,xx)"[189][149]@"
  15. 140 printtab(x+1)left$(sh$,xx+2)
  16. 150 poke214,y+1:print:printtab(x+2);
  17. 160 return
  18. 170 poke214,23:print
  19. 180 print"   [193]ny key [155]- more    [210][197][212][213][210][206] [155]- menu[145]":poke198,0
  20. 190 geta$:ifa$=""then190
  21. 200 fg=0:ifa$=chr$(13)thenfg=1
  22. 210 return
  23. 220 syscm,1024,16384+s*2000,1000
  24. 230 syscm,55296,17384+s*2000,1000
  25. 240 return
  26. 250 syscm,16384+s*2000,1024,1000
  27. 260 syscm,17384+s*2000,55296,1000
  28. 270 return
  29. 280 t=(t+1)and63
  30. 290 syscm,15872+t*8,14336,8
  31. 300 return
  32. 310 geta$:ifa$=""then310
  33. 320 ifa$>="a"anda$<="z"thena$=chr$(asc(a$)+128)
  34. 330 ifa$<"[193]"ora$>"[218]"then310
  35. 340 return
  36. 350 poke214,y+1:print:printtab(3)"[154] [209]uit this game to the menu? (y[154]/n[154])"
  37. 360 geta$:ifa$=""then360
  38. 370 ifa$="y"thenreturn
  39. 380 fl=1:return
  40. 390 print"[147]":cm=53176:pg$="lbrgnmt"
  41. 400 fori=1to5:readm$(i):next
  42. 410 data"    [208]lay [195][210][217][208][212][207][205][201][206][196]
  43. 420 [131]"  (NULL)ules of len(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)right$(NULL)str$
  44. 430 data" [200]ow to [211]olve [195]ryptics
  45. 440 [131]"  len(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)right$(NULL)str$ (NULL)olution
  46. 450 data"   [210]eturn to [204][207][193][196][211][212][193][210]
  47. 460 lt$[178]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  48. 470 sp$[178]"                                      "
  49. 480 lb$[178]"totototototototototototototototototototototototototototototototototototototo"
  50. 490 sh$[178]"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
  51. 500 md$[178]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  52. 510 m2$(0)[178]"(NULL)valasc(NULL) of which letter"
  53. 520 m2$(1)[178]"(NULL)right$chr$left$(NULL) of which letter"
  54. 530 m2$(2)[178]"peekval(NULL)(NULL)valval(NULL) which letters"
  55. 540 m2$(3)[178]"(NULL)hat's the word"
  56. 550 [153]"load":[151]53272,31
  57. 560 t[178]12:[141]280
  58. 570 [129]i[178]100[164]140:[139]w$(i)[178]"*"[167]u[178]i[171]3:i[178]140
  59. 580 [130]
  60. 590 [153]"loadsys";
  61. 600 [129]i[178]0[164]23:[153]sh$;:[130]:[153][200](sh$,39)"cmdcmdsave@@"
  62. 610 [129]i[178]217[164]242:[151]i,[194](i)[176]128:[130]:s[178]0:[141]220
  63. 620 x[178]8:xx[178]23:y[178]3:yy[178]14:[141]100
  64. 630 [153]"open len (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) right$ (NULL) str$cont"
  65. 640 [129]i[178]1[164]5:[153][163]9)m$(i):[153]:[130]:s[178]2:[141]220
  66. 650 m[178]1:w[178]0
  67. 660 [151]214,6[170]m[172]2:[153]:[153][163]9)""m$(m)"on":[151]198,0
  68. 670 [161]a$:[139]a$[179][177]""[175]a$[179][177]"on"[175]a$[179][177][199](13)[175]a$[179][177]"t"[167]670
  69. 680 [139]a$[178][199](13)[167]s[178]1:[141]220:[137]740
  70. 690 [139]a$[178]"t"[167][141]280
  71. 700 [153][163]9)"cont"m$(m)
  72. 710 [139]a$[178]"on"[167]m[178]m[171]1:[139]m[179]1[167]m[178]5
  73. 720 [139]a$[178]""[167]m[178]m[170]1:[139]m[177]5[167]m[178]1
  74. 730 [137]660
  75. 740 [145]m[141]760,1600,1410,1490,1760
  76. 750 [137]660
  77. 760 s[178]0:[141]250:cl[178]2:sc[178]100
  78. 770 x[178]5:xx[178]28:y[178]0:yy[178]11:[141]100
  79. 780 [153][163]x[170]1)"listatnpeeklenstr$valascchr$left$right$mid$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)"
  80. 790 x[178]2:xx[178]34:y[178]15:yy[178]5:[141]100
  81. 800 [153]"cmd(NULL)contvalasc(NULL) peekcontval(NULL)(NULL)valval(NULL) (NULL)contright$chr$left$(NULL) chr$cont(NULL)val(NULL)(NULL) (NULL)contval(NULL)(NULL) (NULL)contval(NULL)(NULL)
  82. 810 printtab(9)"[215][207][210][196]:"tab(21)"[211][195][207][210][197]:"
  83. 820 printtab(x)"[171]"left$(md$,xx)"[179]"
  84. 830 fori=1to10:w(i)=0:next
  85. 840 w=w+1:ifw(w)andw<11then840
  86. 850 ifw>10thenw=0:goto840
  87. 860 poke214,y+2:print:printtab(14)"   [157][157][157]"w;tab(27)"    [157][157][157][157]"sc
  88. 870 gg=0:cl=2:wd$=w$(u+w*4):lw=len(wd$)
  89. 880 poke214,19:print"[155]":printtab(x+1)left$(sp$,xx)"[145]":printtab(x+1)w$(u+1+4*w)
  90. 890 printtab(x+1)left$(sp$,xx)"[145]":printtab(x+1)w$(u+2+4*w):g=1
  91. 900 poke214,y+1:print
  92. 902 ifggthenprinttab(3)"[151][204][197][198][212] [194][197][212][215][197][197][206] [210][201][199][200][212] [199][154][213][197][211][211] [206][154][197][216][212] [205][154][197][206][213]":goto910
  93. 905 printtab(3)"[204][154][197][198][212] [194][154][197][212][215][197][197][206] [210][154][201][199][200][212] [199][154][213][197][211][211] [206][154][197][216][212] [205][154][197][206][213]
  94. 910 [161]a$:[129]i[178]1[164]7:[139]a$[178][202](pg$,i,1)[167]i[178]7:[130]:[137]917
  95. 915 [130]:[137]910
  96. 917 [139]a$[178]"n"[167]1320
  97. 920 [139]a$[178]"t"[167][141]280:[137]910
  98. 930 [139]a$[179][177]"m"[167]960
  99. 940 [141]350:[139]fl[167]fl[178]0:[137]900
  100. 950 s[178]1:[141]250:w[178]0:[142]
  101. 960 [139]a$[178]"g"[167]m2[178]3:[137]1010
  102. 970 [139]gg[167]900
  103. 980 [139]a$[178]"l"[167]m2[178]0:sc[178]sc[171]1
  104. 990 [139]a$[178]"r"[167]m2[178]1:sc[178]sc[171]1
  105. 1000 [139]a$[178]"b"[167]m2[178]2:sc[178]sc[171]2
  106. 1010 [151]214,y[170]1:[153]:[153][163]x[170]1)[200](sp$,xx)"on"
  107. 1020 [153][163]x[170]6[170]4[172](m2[178]2))"cont"m2$(m2)"? ";
  108. 1030 [139]m2[178]3[167]1250
  109. 1040 [141]310:a1$[178]a$:a1[178][198](a1$)[171]192
  110. 1050 [139]m2[178]0[175]a1$[178]"atn"[167]1040
  111. 1060 [139]m2[178]1[175]a1$[178]"(NULL)"[167]1040
  112. 1070 [153]""a1$;
  113. 1080 [139]m2[179]2[167][153]:[137]1130
  114. 1090 [153]"cont and ";
  115. 1100 [141]310:a2$[178]a$:a2[178][198](a2$)[171]192
  116. 1110 [139]a2[171]a1[179]2[167]1100
  117. 1120 [153]""a2$;
  118. 1130 [139]m2[178]0[167]a2[178]a1:a1[178]0:[137]1150
  119. 1140 [139]m2[178]1[167]a2[178]26:[137]1150
  120. 1150 [151]214,2[170]g:[153]
  121. 1160 [153][163]7[170]a1);
  122. 1170 cl[178]cl[170]1
  123. 1180 [151]646,cl:[153]""[200](sp$,a2[171]a1[170](m2[178]2)[170](m2[178]0))
  124. 1190 co[178]0:[129]i[178]1[164]lw:l[178][198]([202](wd$,i,1))[171]192
  125. 1200 [139]l[177]a1[175]l[179]a2[167]co[178]co[170]1
  126. 1210 [130]
  127. 1220 [151]214,2[170]g:[153]:[153][163]6[170]a1[170](a2[171]a1)[173]2[171](m2[178]1))""[199](co[170]48)
  128. 1230 g[178]g[170]1:[139]g[177]9[167]gg[178]1
  129. 1240 [137]900
  130. 1250 [141]1880:[153]"onon":zz[178]0
  131. 1260 [151]214,16:[153]:[153][163]x[170]1)[200](sp$,xx)"on"
  132. 1270 [153][163]14);:[151]646,ca
  133. 1280 [139]q9$[178]wd$[167][153]"(NULL) right$ chr$ left$ (NULL) (NULL) !on":w(w)[178]1:[137]1300
  134. 1290 [153]"(NULL) (NULL) (NULL) (NULL) chr$ (NULL) !on"
  135. 1300 zz[178]zz[170]1:[139]zz[179]20[167]ca[178]1[171]ca:[137]1270
  136. 1310 [139]q9$[179][177]wd$[167]sc[178]sc[171]3
  137. 1320 [129]i[178]1[164]10
  138. 1330 [139]w(i)[167]1350
  139. 1340 i[178]10:[130]:[151]214,3:[153]:[129]j[178]1[164]9:[153][163]6)[200](sp$,28):[130]:[137]840
  140. 1350 [130]
  141. 1360 [151]214,16:[153]
  142. 1370 [153]"open       (NULL)our score was"sc"        "
  143. 1380 [153]"open      atnny key for the menu        "
  144. 1390 [161]a$:[139]a$[178]""[167]1390
  145. 1400 s[178]2:[141]250:w[178]0:[142]
  146. 1410 [153]"loadopen":[129]i[178]1[164]99
  147. 1420 [139]w$(i)[179][177]"\"[167]1450
  148. 1430 [141]170:[139]fg[167]i[178]99:[130]:s[178]2:[141]250:[142]
  149. 1440 [153]"loadopen":i[178]i[170]1
  150. 1450 [153]" "w$(i)
  151. 1460 [130]
  152. 1470 [141]170:[139]fg[167]i[178]99:s[178]2:[141]250:[142]
  153. 1480 [137]1410
  154. 1490 i[178]0
  155. 1500 [153]"load"
  156. 1510 [153]""w$(u[170]4[170]i[172]4)
  157. 1520 [153]"cont "w$(u[170]5[170]i[172]4)
  158. 1530 [153]" "w$(u[170]6[170]i[172]4)
  159. 1540 [153]"open  "w$(u[170]7[170]i[172]4)
  160. 1550 [153]
  161. 1560 i[178]i[170]1:[139]i[173]4[179][177][181](i[173]4)[167]1510
  162. 1570 [141]170:[139]fg[167]s[178]2:[141]250:[142]
  163. 1580 [139]i[179]10[167]1500
  164. 1590 i[178]0:[137]1500
  165. 1600 x[178]3:xx[178]32:y[178]2:yy[178]16:[141]100
  166. 1610 [153][163]5)"open  (NULL)ou may get clues to the
  167. 1620 printtab(5)"word defined by the cryptic
  168. 1630 [153][163]5)"clue by pressing (NULL)open, (NULL)open or peekopen.
  169. 1640 printtab(5)"[212]he number of letters in the
  170. 1650 [153][163]5)"word found in the range you
  171. 1660 printtab(5)"selected is shown.  [206]ote that
  172. 1670 [153][163]5)"the